home *** CD-ROM | disk | FTP | other *** search
- # testing additional resources
-
- xtAppInitialize -class Program \
- -options { {-option1 option1 sepArg}
- {-option2 option2 sepArg}
- }
-
- . getAppResources { {option1 Option default1 x} {option2 Option default2 y}}
- puts stdout "option1: $x, option2: $y"
-
- xmPushButton .fred managed
-
- . realizeWidget
-
- . mainLoop
-